home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Info channel v3.1.adf / ARexx / Convert.adpro < prev    next >
Text File  |  1991-07-19  |  1KB  |  51 lines
  1. /* 
  2. **    This is a simple program which shows how Art Department 
  3. **      Professional (ADPro) from ASDG, Inc. can be used
  4. **    to read a list of InfoChannel backgrounds and massage these into 
  5. **      maximum overscan. 
  6. **      Remember to create a destination directory, and make sure
  7. **      all paths are set correctly to suit your system.
  8. **      To convert to other resolutions, alter the Abs_scale,
  9. **      Render_type and Screen_type commands.
  10. **
  11. **    Modified by Geir Otto Molstad, FAMO
  12. */
  13.  
  14. options results
  15.  
  16. address "ADPro"
  17.  
  18. PIC_LIST    = "work:InfoChannel/ARexx/Background.list"
  19. IN_PATH     = "work:InfoChannel/Backgrounds/"
  20. OUT_PATH    = "work:InfoChannel/NewBackgrounds/"
  21.  
  22.  
  23. if OPEN('in' , PIC_LIST , 'r') ~= 1 then do
  24.     okay1 "Could Not Open" PIC_LIST 
  25.     exit
  26. end
  27.  
  28. in_file = READLN('in')
  29. do while in_file ~= ""
  30.     lformat "empty"
  31.     load "xxx" 320 400 "color" 0 0 0
  32.     lformat "iff"
  33.     Screen_type 7  /* Screen type  normal hi-res */
  34.     load IN_PATH || in_file 
  35.     if RC ~= 0 then do
  36.         okay1 "Could Not Load" in_file
  37.         exit
  38.     end
  39.     ptotal 16
  40.     pstatus locked
  41.     Dither 1              /* Dither "tar" paletten */
  42.     Abs_scale 736 580     /* New resolution */
  43.     Render_type 16      /* Number of colors */
  44.     Screen_type 31      /* Screen type  max overscan hi-res */
  45.     Execute
  46.     ADPRO_DISPLAY  
  47.     save OUT_PATH || in_file "SCREEN"
  48.     pstatus unlocked
  49.     in_file = READLN('in')
  50. end
  51.